Here we have a Tiny Pilot interpreter 
for the PC-1211 written in Basic. Asa 


result it is extremely slow and 
limited, but at least it's something 
different. (Who says the PC-1211 is 


limited to Basic?) 


When the progran is RUN you will notice 
that I have used the same prompt symbol 
as in Basic i.e. >. This can be 
changed if you wish. The commands are 
as follows: 


% clear progran 

S execute program 

# save program on cassette 

! load program from cassette 
/ list program 

- write/edit program 


I£- an illegal command is given the 
error message LANGUAGE ERROR is 
displayed. 

PROGRAMMING 

After the command - (write/edit) 


a Gin 


is 


given the prompt L: will be displayed. 


This is the request for the starting 
line number. If a new program is being 
entered the starting line number is l. 
You are then able to enter your 
program. (Do not type line numbers!) 
lll lines of program are allowed. 


The progran statements are: 


T: display text 


TH: display text and halt until ENTER 
1S pressed 

Bs beep 

As accept input (up to 7 characters) . 


The symbol / is used as the prompt. 


M; match last input i 

Y execute if match was true 
N execute if match was false 
J: jump to the label "*" 

* label for jump 

R: return from jump 

S: stop > 

Es: end 


If there is no * in the progran J: is 
ignored.. The statement E: must be 
placed at the end of every program and 
once entered you exit the write/edit 
mode. Here is a short example of a 
PILOT progran when listed. 


= 
Js 
E 


You will notice that each word has to 
be on a new line and that each line 
cannot’ be more than 7 characters. This 
is due to the limitations of PC-1211 
Basic string handling. If an illegal 
statement is encountered in the 
execution of a program the error 
message LANGUAGE ERROR IN n is 
displayed, where n is the line where 
the error occured. 


EDITING 


Let's say we want to edit line 8 so 
that it reads TH: instead of T. This 
is accomplished with the comman 
When the starting line puna is 
requested type in the number of the 
line to be edited, in this case, 8. 
The computer then allows you to retype 
line 8. After you have done this it 
will ask you to retype the next line. 
Do not type anything, instead keep 
pushing ENTER until it asks for the 
last line (in this case 15). Now push 
Es and the editing is complete. You 
are not told which line you are being 
asked to retype during an editing so it 
would be much easier to break into 
Basic and change the string which 
Stores the line to be edited and then 
restart the program. The string which 
stores a given line is AŞ(L+6) where L 
stands for the line number. Otherwise 
you'll have to keep count of the line 
numbers yourself while editing. 


Thin 


To save as much memory as possible I 
have left out a lot of error trapping 
and remarks. Lines 20-30 are the match 
routine; 40-80, routine to skip a 
statement after Y or N; 90-120, J: 
routine; 140-250, Pilot interpreter; 


270-290, write/edit routine; and 300 is 


the list (/) routine. 


Variables used are: 

A & C various uses 

B highest ]inenumber 

D$ current input 

E line where J: occurred 
F match result 

AS (7) - AS(117) Pilot program 


If the progran is being run with the 
CE~122 printer interface the PAUSE's in 
lines 300 and 370 should be changed to 
PRINT's so that they display on the 
printer. The command TH: can also be 
changed to TP: standing for display 
Text on Printer. 


I myself have not find any practical 
use for this progran as it is very 
limited but I suppose one could use it 
to introduce beginners to PILOT and 
programming. , 
10: GOTO 310 

20: AsAtl: IF DS=AS(A) LET F=1: GOTO 
140 

30: F=0; GOTO 140 

40: IF F=C THEN 140 
50: AsAtl: IF AS(A)="T:" LET A=Atl: 
GOTO 140 

60: IF AS(A)="TH:" LET A=Atl: GOTO 140 
70: IF AS(A)="M:" LET A=At1 

80: GOTO 140 

90: C=7 

100: IF AS(C)="*" LET E=A. A=C: GOTO 
140 
110: IF C=B THEN 140 
120; C=C+l: GOTO 100 

130: A=6 

140: IF A=B-1 THEN 310 
150: A=Atl, CS=AS(A): IF CS="S:" THEN 


è 


160: IF C$="T:" LET A=Atl: PAUSE A$ (A): 
GOTO 140 

170: IF C$="M:" THEN 20 

180; IF CS="N" LET C=0: GOTO 40 

190: IF CS="Y" LET C=l1: GOTO 40 

200: IF CS="A:" INPUT "/": DS: GOTO 140 


210: IF C$="J:" THEN 90 

220: IF CS="B:" BEEP 1: GOTO 140 

230: IF C$="TH:" LET A=At+l: PRINT 
AS (A): GOTO 140 

240: IF CS="R:" LET A=E: GOTO 140 

250: IF CS="*" THEN 140 

260: A=A-6: PRINT “LANGUAGE ERROR IN"; 
A: GOTO 310 

270: INPUT "L:"3: Bs B=B+6 

280: INPUT ">", AS(B): IF AS(B)="E:" 
THEN 310 

290: B=B+l: GOTO 280 

300: FOR A=7 TO B: C=A-6: PAUSE C; 
AS (A): NEXT A 

310: INPUT ">", AS: IF AS="$" THEN 130 
320: IF AS="—" THEN 270 

330: IF AS="%" CLEAR: GOTO 310 

340: IF AS="/" THEN 300 

350: IF AS="#" PRINT#"": GOTO 310 

360; IF AS="!1" inout#"": GOTO 310 

370: PAUSE "LANGUAGE ERROR": GOTO 310 


NNN LNLLLLLLLLLALLLLLQQLLLLO LLL 


Don't forget the meeting's at the 
Atheneaum on Thursday, 06 August, 
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